1 POKE55,255:POKE56,62:V=53248:POKEV+21,.
2 POKE53280,.:POKE53281,.:PRINT"[147]";
3 A=A+1
4 IFA=1THENLOAD"FOOLS.SPR",8,1
15 PO=PEEK(648)*256+1016:DI=6:DIMG$(36)
16 D$(1)="N":D$(2)="S":D$(3)="E"
17 D$(4)="[206][207][210][212][200]":D$(5)="[211][207][213][212][200]":D$(6)="[197][193][211][212]"
18 MK=1:K$(1)="[215]":K$(2)="[196]":K$(3)="[210]":GOTO100
19 REM   PUT CHEST WITH GOLD AT CX,CY
20 POKEV+21,7
22 POKEPO,255:POKEV+39,14:POKEV,CX:POKEV+1,CY:REM            BOTTOM OF CHEST
24 POKEPO+1,254:POKEV+40,14:POKEV+2,CX-24:POKEV+3,CY-8:REM   TOP OF CHEST
26 POKEPO+2,253:POKEV+41,7:POKEV+4,CX:POKEV+5,CY: REM        GOLD IN CHEST
28 RETURN
30 PRINT"[164]";:FORA=1TO15
31 POKEV+41,FG:FG=FG+1:IFFG=9THENFG=7
32 GETA$:IFA$=""THEN31
34 IFA$=CHR$(32)THEN40
35 IFA$=CHR$(13)THENPRINT"[157] ":GOTO44
36 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:GOTO32
37 IFA$>="A"ANDA$<="Z"THENA$=CHR$(ASC(A$)+128)
38 GOSUB6000:IFA$<"[193]"ORA$>"[218]"THEN32
40 PRINT"[157]"A$"[164]";::G$(A)=A$
42 NEXT:PRINT"[157] "
44 I$="":FORB=1TOA-1:I$=I$+G$(B):NEXT
46 RETURN
100 POKEV+21,.:PRINT"[147]      [196]ISPUTE?'S [199]AZELLE [208]RESENTS:":FG=7
102 PRINT"               [198]OOLS [199]OLD"
103 PRINT"         [193]N [193]DVENTURE-[212]YPE [199]AME"
105 PRINT"[160]            [160]BY [196]AN [212]OBIAS"
106 PRINT"      [195]-64 VERSION BY [205]IKE [205]AYNARD"
110 PRINT"[129][212]HE OBJECT IS TO GET OUT OF THE CAVE"
120 PRINT"WITH THE TREASURE."
130 PRINT"[154][213]SE NORMAL ADVENTURE GAME COMMANDS."
140 PRINT"[159][201]F YOU DON'T KNOW WHAT NORMAL ADVENTURE"
150 PRINT"GAME COMMANDS ARE, FEEL FREE TO BUY OUR"
160 PRINT"4500 PAGE BOOK, "CHR$(34)"[212][200][197] [201][206][195][207][205][208][204][197][212][197] [194][207][207][203][160][207][198]"
170 PRINT"[193][196][214][197][206][212][213][210][197] [199][193][205][197] [195][207][205][205][193][206][196][211]"CHR$(34)" FOR THE"
175 PRINT"UNBELIEVABLE LOW PRICE OF $499.95 ..."
176 PRINT"ORDER YOURS TODAY!"
180 PRINT"[153]        [208]RESS [210][197][212][213][210][206] TO CONTINUE.":POKE198,.:T=-1
190 GETA$:IFA$<>CHR$(13)THEN190
200 POKEV+21,.:PRINT"[147][129][217]OU ARE IN A CAVE. [217]OU CAN SEE LIGHT"
210 PRINT"TO THE WEST."
220 PRINT"[154][214]ISIBLE OBJECTS:[159]";:IFNOT(T)THENPRINT" [206]OTHING"
230 IF(T)THENPRINT:PRINT"                 [212]REASURE":CX=180:CY=83:GOSUB20
240 PRINT"[154][207]PEN [208]ASSAGES: [159][215]EST"
260 PRINT"[129]-->[158]";:GOSUB30
270 J$=""
300 IF(I$="[204][207][207][203]")THEN ON INT(RND(0)*2)+1 GOTO 3000,3020
310 IF(I$="[199][197][212] [212][210][197][193][211][213][210][197]")OR(I$="[212][193][203][197] [212][210][197][193][211][213][210][197]")AND(T)THENT=.:GOTO200
311 IF(I$="[199][197][212] [199][207][204][196]")OR(I$="[212][193][203][197] [199][207][204][196]")AND(T)THENT=.:GOTO200
312 IF(I$="[201][206][214][197][206][212][207][210][217]")OR(I$="[201][206][214]")OR(I$="[201]")THENGOSUB400:GOTO200
315 IF(I$="[196][210][207][208] [212][210][197][193][211][213][210][197]")AND(NOT(T))THENT=NOT(T):MK=1:GOTO200
316 IF(I$="[196][210][207][208] [199][207][204][196]")AND(NOT(T))THENT=NOT(T):MK=1:GOTO200
320 IFI$="[215]"ORI$="[215][197][211][212]"ORI$="[199][207] [215]"ORI$="[199][207] [215][197][211][212]"THEN500
330 FORA=1TODI:IFI$=D$(A)THENPRINT"[217]OU CAN'T GO THAT DIRECTION."
335 IFI$=D$(A)THENFORA=1TO1000:NEXT:GOTO200
340 NEXT
350 IF(I$<>"[209][213][201][212]")AND(I$<>"[197][216][201][212]")AND(I$<>"[211][212][207][208]")THEN370
360 PRINT"[217]OU HAVE JUST [209][213][201][212] THE GAME."
365 PRINT"([201] DON'T BLAME YOU; FEW MORTALS CAN"
366 PRINT"MANAGE TO SOLVE IT.)":GOTO2000
370 PRINT"[201] DON'T UNDERSTAND.":FORA=1TO1000:NEXT:GOTO200
400 IF(T)THENPRINT"[217]OU ARE CARRYING [206][207][212][200][201][206][199].":GOTO420
410 PRINT"[217]OU ARE CARRYING [212][210][197][193][211][213][210][197]."
420 FORA=1TO2000:NEXT:RETURN
500 PRINT"[159][217]OU HAVE LEFT THE CAVE."
505 IF(T)THEN520                              
510 PRINT"[158][217]OU HAVE TEN BILLION DOLLARS IN GOLD!"
512 PRINT"[198]INAL [211]CORE: [153]1000 OUT OF [153]1000."
515 GOTO2000
520 PRINT"[158][200]OWEVER, YOU FORGOT THE TREASURE."
530 PRINT"[198]INAL [211]CORE: [153]500 OUT OF [153]1000.":PRINT:PRINT:PRINT
2000 PRINT"[154][215]OULD YOU LIKE TO PLAY AGAIN?  ([217][154]/[206][154])":PRINT"[129]-->[158]";
2005 PRINT"               [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOSUB30
2010 IFI$="[217]"ORI$="[217][197][211]"THENMK=1:GOTO100
2015 IFI$<>"[206]"ANDI$<>"[206][207]"THENPRINT"[145][145]";:GOTO2000
2020 POKEV+21,.
2030 PRINT"[147][194]YE NOW. [200]AVE A LOUSY DAY."
2040 OPEN15,8,15,"R0:CONNECT=CONNECT":INPUT#15,ER:CLOSE15:IFER<>63THENEND
2050 LOAD"CONNECT",8
3000 PRINT"[204]OOK AT WHAT? (...MUST THINK [201]'M A":PRINT"MINDREADER...)
3010 [129]A[178]1[164]4000:[130]:[137]200
3020 [153]"RIGHT$'M A COMPUTER, RIGHT$CLOSEDON'T HAVE EYES, YA   KNOW ...":[129]A[178]1[164]4000:[130]
3030 [137]200
6000 [139](MK[179]4)[175](G$(1)[178]"CHR$")[175](A$[178]"VAL")[175](A[178]2)[167]A$[178]K$(MK):MK[178]MK[170]1:[142]
6010 [142]